home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Entertainment / Strategy / 4X4 / 4X4 / card_2206.txt < prev    next >
Encoding:
Text File  |  1988-04-25  |  6.1 KB  |  266 lines
  1. -- card: 2206 from stack: in
  2. -- bmap block id: 3998
  3. -- flags: 0000
  4. -- background id: 3286
  5. -- name: space
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global temp,crystal,ball,noexit,star,dir,turn
  9.   put 3 into star
  10.   repeat for 2 times
  11.     put random of 3 into dir
  12.     if dir is 2 then
  13.       put random of 390 & ",3" into aa
  14.       put random of 390 & ",290" into bb
  15.     end if
  16.     if dir is 1 then
  17.       put random of 390 & ",290" into aa
  18.       put random of 390 & ",3" into bb
  19.     end if
  20.     if dir is 3 then
  21.       put "3," & random of 290 into aa
  22.       put "390," & random of 290 into bb
  23.     end if
  24.     if star is 3 then
  25.       set userlevel to 3
  26.       choose pencil tool
  27.       set dragspeed to 1000
  28.       drag from aa to bb
  29.       drag from aa to bb
  30.       domenu "revert"
  31.       choose browse tool
  32.     end if
  33.   end repeat
  34.   if turn is 0 then
  35.     if star is 3 then
  36.       set userlevel to 3
  37.       set pattern to 1
  38.       choose pencil tool
  39.       set dragspeed to 500
  40.       drag from 319,0 to 199,75
  41.       drag from 319,0 to 199,75
  42.       choose spray tool
  43.       click at 199,67
  44.       click at 200,69
  45.       click at 195,70
  46.       click at 196,64
  47.       click at 197,63
  48.       click at 193,65
  49.       click at 205,65
  50.       set pattern to 12
  51.       click at 199,67
  52.       wait 20
  53.       click at 200,69
  54.       wait 20
  55.       click at 195,70
  56.       wait 20
  57.       click at 196,64
  58.       wait 20
  59.       click at 197,63
  60.       wait 20
  61.       click at 193,65
  62.       wait 20
  63.       click at 205,65
  64.       domenu "revert"
  65.       choose browse tool
  66.     end if
  67.   end if
  68. end opencard
  69. on mouseup
  70.   go to previous card
  71. end mouseup
  72.  
  73.  
  74.  
  75. -- part 1 (field)
  76. -- low flags: 01
  77. -- high flags: 2007
  78. -- rect: left=0 top=292 right=342 bottom=512
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 0
  82. -- font id: 3
  83. -- text size: 10
  84. -- style flags: 256
  85. -- line height: 13
  86. -- part name: 1
  87. ----- HyperTalk script -----
  88. on mousedown
  89.   set locktext of card field "1" to false
  90.   click at the clickloc
  91.   click at the clickloc
  92.   put the selection into aa
  93.   if aa contains "DELETE" then
  94.     domenu "delete card"
  95.     domenu "delete card"
  96.   else
  97.     set locktext of card field "1" to true
  98.     go to first card
  99.   end if
  100. end mousedown
  101.  
  102.  
  103. -- part 2 (button)
  104. -- low flags: 00
  105. -- high flags: 0000
  106. -- rect: left=320 top=185 right=217 bottom=360
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: New Button
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   play "boing" tempo 2000 "aw7 a a a a a a a a"
  118.   visual effect zoom open slow
  119.   go to next card
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 9 (button)
  125. -- low flags: 00
  126. -- high flags: 8003
  127. -- rect: left=414 top=7 right=25 bottom=493
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: examine
  136.  
  137.  
  138. -- part 10 (button)
  139. -- low flags: 00
  140. -- high flags: 8003
  141. -- rect: left=415 top=28 right=46 bottom=494
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: operate
  150.  
  151.  
  152. -- part 11 (button)
  153. -- low flags: 00
  154. -- high flags: 8003
  155. -- rect: left=412 top=49 right=68 bottom=453
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: go
  164.  
  165.  
  166. -- part 12 (button)
  167. -- low flags: 00
  168. -- high flags: 8003
  169. -- rect: left=457 top=49 right=68 bottom=499
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: zoom
  178.  
  179.  
  180. -- part 13 (button)
  181. -- low flags: 00
  182. -- high flags: 8003
  183. -- rect: left=457 top=71 right=90 bottom=499
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 1
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: talk
  192.  
  193.  
  194. -- part 14 (button)
  195. -- low flags: 00
  196. -- high flags: 8003
  197. -- rect: left=458 top=93 right=112 bottom=500
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 1
  201. -- font id: 0
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: hit
  206.  
  207.  
  208. -- part 15 (button)
  209. -- low flags: 00
  210. -- high flags: 8003
  211. -- rect: left=459 top=114 right=134 bottom=502
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: quit
  220.  
  221.  
  222. -- part 16 (button)
  223. -- low flags: 00
  224. -- high flags: 8003
  225. -- rect: left=412 top=71 right=90 bottom=453
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 0 / 0
  228. -- text alignment: 1
  229. -- font id: 0
  230. -- text size: 12
  231. -- style flags: 0
  232. -- line height: 16
  233. -- part name: eat
  234.  
  235.  
  236. -- part 17 (button)
  237. -- low flags: 00
  238. -- high flags: 8003
  239. -- rect: left=413 top=93 right=112 bottom=454
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 0 / 0
  242. -- text alignment: 1
  243. -- font id: 0
  244. -- text size: 12
  245. -- style flags: 0
  246. -- line height: 16
  247. -- part name: get
  248.  
  249.  
  250. -- part 18 (button)
  251. -- low flags: 00
  252. -- high flags: 8003
  253. -- rect: left=414 top=115 right=134 bottom=455
  254. -- title width / last selected line: 0
  255. -- icon id / first selected line: 0 / 0
  256. -- text alignment: 1
  257. -- font id: 0
  258. -- text size: 12
  259. -- style flags: 0
  260. -- line height: 16
  261. -- part name: exit
  262.  
  263.  
  264. -- part contents for card part 1
  265. ----- text -----
  266.      This is only two cards of a space game stack we are working on which contains over 100 cards.  All illustrations are of this quality or better.  There is lots of animation, digitized sounds and more.  The object of the game is to save the earth. You will move through space by clicking on the different objects.  Try it now, click on the small moon to go there.  The other buttons do not work for this demonstration but work great in the real game.  If you would like to completely get rid of this advertisment then click on this-- DELETE.  To keep this ad and return to 4X4 click anywhere.